﻿Public Class calc
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BTM_Calc_Click(sender As Object, e As EventArgs) Handles BTN_plus.Click

        Dim firstNumber As Integer
        Dim SecNumber As Integer

        firstNumber = CInt(TB_FirstNumber.Text)
        SecNumber = CInt(TB_SecNumber.Text)

        Dim Result As Integer

        Result = firstNumber + SecNumber

        LBL_Result.Text = Result


    End Sub

    Protected Sub BT_minus_Click(sender As Object, e As EventArgs) Handles BTN_minus.Click
        Dim firstNumber As Integer
        Dim SecNumber As Integer

        firstNumber = CInt(TB_FirstNumber.Text)
        SecNumber = CInt(TB_SecNumber.Text)

        Dim Result As Integer

        Result = firstNumber - SecNumber

        LBL_Result.Text = Result
    End Sub

    Protected Sub BTN_pow_Click(sender As Object, e As EventArgs) Handles BTN_pow.Click
        Dim firstNumber As Integer
        Dim SecNumber As Integer

        firstNumber = CInt(TB_FirstNumber.Text)
        SecNumber = CInt(TB_SecNumber.Text)

        Dim Result As Integer

        Result = firstNumber ^ SecNumber

        LBL_Result.Text = Result
    End Sub

    Protected Sub BTN_mul_Click(sender As Object, e As EventArgs) Handles BTN_mul.Click
        Dim firstNumber As Integer
        Dim SecNumber As Integer

        firstNumber = CInt(TB_FirstNumber.Text)
        SecNumber = CInt(TB_SecNumber.Text)

        Dim Result As Integer

        Result = firstNumber * SecNumber

        LBL_Result.Text = Result
    End Sub

    Protected Sub BTN_div_Click(sender As Object, e As EventArgs) Handles BTN_div.Click
        Dim firstNumber As Integer
        Dim SecNumber As Integer

        firstNumber = CInt(TB_FirstNumber.Text)
        SecNumber = CInt(TB_SecNumber.Text)

        Dim Result As Integer

        Result = firstNumber / SecNumber

        LBL_Result.Text = Result
    End Sub
End Class